home *** CD-ROM | disk | FTP | other *** search
/ Acorn RISC PD-CD 1 / Acorn RISC PD-CD 1.iso / games / _spatience / spatience / scripts / 28_card < prev    next >
Encoding:
Text File  |  1992-07-03  |  1.2 KB  |  71 lines
  1. |
  2. |  Rules for 28 card patience
  3. |  Written by J.Horsnell
  4. |
  5. |  The name '28 card' is because there
  6. |  are twenty eight cards on the table.
  7. |
  8. |  This is the standard patience game supplied
  9. |  with RISC OS 2.  Its stacks descend with
  10. |  alternating colours.  Its pack turns three
  11. |  cards at a time.  Only kings may be placed
  12. |  onto empty stacks and the foundations are
  13. |  built from the ace up.
  14. |
  15. SCRIPT_TYPE 1
  16. |
  17. BEGIN "28 card patience"
  18.  
  19.   FLAGS ClickFly AnimateFly
  20.   WIDTH 10 * 76 + 14
  21.   HEIGHT 800
  22.   ZEROTOWIN 52 - CARDSIN$2
  23.   Score 7 * 76 + 12 + 12 , 16 + 100 * 3
  24.  
  25.   FOR stack = 0 TO 1
  26.     FOUNDATION
  27.       X 8 * 76 + 12
  28.       Y 16 + 100 * stack
  29.       ID 2
  30.     END
  31.   END
  32.   FOR stack = 0 TO 1
  33.     FOUNDATION
  34.       X 7 * 76 + 12 + stack * 152
  35.       Y 16 + 50 
  36.       ID 2
  37.     END
  38.   END
  39.  
  40.   FOR stack = 0 to 6
  41.     STACK
  42.       X stack * 76 + 12
  43.       y 16
  44.       FIRST 13
  45.       MAX 19
  46.       DEAL 7 - stack , 7 - stack
  47.       FLAGS ClickFly Join__DC
  48.     END
  49.   END
  50.  
  51.   STACK
  52.     X 7 * 76 + 12 + 38
  53.     Y 216
  54.     MAX 0
  55.     DEAL 24
  56.     DEALTO 4,3
  57.     DRAGUPTO 0
  58.     FLAGS PaintCount
  59.   END
  60.  
  61.   STACK
  62.     X 8 * 76 + 12 + 38
  63.     Y 216
  64.     MAX 0
  65.     DRAGUPTO 1
  66.     FLAGS PaintLast
  67.     ID 4
  68.   END
  69.  
  70. END
  71.